Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/card_25693.txt

Text File | 1990-08-14 | 8.8 KB | 376 lines

-- card: 25693 from stack: in
-- bmap block id: 26501
-- flags: 4000
-- background id: 25947
-- name: TD Personal
----- HyperTalk script -----
on openCard
  get (item 2 of the abbrev date & ", " & char 4 to 5 of item 3 of the abbrev date)
  put empty into char 1 of it
  if card field "Birthdate" is empty then
    put it into card field "Birthdate"
  end if
  if card field "Date hired" is empty then
    put it into card field "Date hired"
  end if
  tabKey
end openCard


-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=71 right=91 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Teacher #


-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=71 right=91 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title
----- HyperTalk script -----
on closeField
  global teacherName
  if (card field "First Name" is not empty) OR (card field "Last Name" is not empty) then
    put card field "Title" & " " & card field "First Name" & " " & card field "Last Name" into teacherName
  else put empty into teacherName
end closeField


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=96 right=116 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last Name
----- HyperTalk script -----
on closeField
  global teacherName
  if (card field "First Name" is not empty) OR (card field "Last Name" is not empty) then
    put card field "Title" & " " & card field "First Name" & " " & card field "Last Name" into teacherName
  else put empty into teacherName
end closeField


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=121 right=141 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First Name
----- HyperTalk script -----
on closeField
  global teacherName
  if (card field "First Name" is not empty) OR (card field "Last Name" is not empty) then
    put card field "Title" & " " & card field "First Name" & " " & card field "Last Name" into teacherName
  else put empty into teacherName
end closeField


-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=362 top=121 right=141 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Middle


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=146 right=166 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=171 right=191 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: City


-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=196 right=216 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: State


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=221 right=241 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Zip Code


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=356 top=171 right=191 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: S.S.N.


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=381 top=196 right=216 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone #


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=381 top=221 right=241 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Emergency


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=249 right=269 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Birthdate


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=275 right=295 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date hired


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=341 top=249 right=267 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home Language


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=341 top=275 right=293 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ethnic Category


-- part 17 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=313 top=72 right=88 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Male
----- HyperTalk script -----
on mouseUp
  set hilite of button "Female" to false
  set hilite of button "Male" to true
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=368 top=72 right=88 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Female
----- HyperTalk script -----
on mouseUp
  set hilite of button "Male" to false
  set hilite of button "Female" to true
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=210 top=250 right=266 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home Language
----- HyperTalk script -----
on mouseDown
  global checkLoc1
  if first item of the clickLoc >= 333 then
    get the rect of me
    put item 1 of it + 123 into horz
    put item 2 of it into vert
    set hilite of me to true
    put "NA                              ,Chinese,English," into menuList
    put "French,German,Hatian,Japanese,Russian,Spanish" after menuList
    put PopUpMenu(menuList,vert,horz,checkLoc1) into temp
    if temp > 0 then
      put item temp of menuList into card field "Home Language"
      put temp into checkLoc1
    end if
    set hilite of me to false
  end if
end mouseDown


-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=210 top=276 right=292 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ethnic Category
----- HyperTalk script -----
on mouseDown
  global checkLoc2
  if first item of the clickLoc >= 333 then
    get the rect of me
    put item 1 of it + 123 into horz
    put item 2 of it into vert
    set hilite of me to true
    put "NA                              ,American," into menuList
    put "Canadian,Chinese,French,Greek,Hatian,Japanese," after menuList
    put "Korean,Mexican,Native Indian,Spanish,Ukranian" after menuList
    put PopUpMenu(menuList,vert,horz,checkLoc2) into temp
    if temp > 0 then
      put item temp of menuList into card field "Ethnic Category"
      put temp into checkLoc2
    end if
    set hilite of me to false
  end if
end mouseDown


-- part contents for card part 15
----- text -----
NA

-- part contents for card part 16
----- text -----
NA